Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / ti / pcscm3_3 / pkdisk2.arc / RUNTIME.APP < prev next >

Wrap

Text File | 1988-06-07 | 33.4 KB | 1,404 lines

#!fast-load (C) Copyright 1988 by Texas Instruments #!fast-load All Rights Reserved. h001F 0204 x021+ x03-1+ x04ADD1 x05APPLY x06CAAAAR x06CAAADR x06CAADAR x06CAADDR x06CADAAR x06CADADR x06CADDAR x07CALL/CC x1ECALL-WITH-CURRENT-CONTINUATION x06CDAAAR x06CDAADR x06CDADAR x06CDADDR x06CDDAAR x06CDDADR x06CDDDAR x06CDDDDR x0DEMPTY-STREAM? x06MODULO x05NULL? x07REVERSE x04SUB1 x0APROCEDURE? x10THE-EMPTY-STREAM lx03EXPn x03EXP lx03EXPn t<°<Θ<┌<╞<┤<ó<É<~<l <Z <H <3< < <·<Φ<╓<─<▓<á<Ä<|<I<;<$<<;ì;Q ;qj;ê;XSô"Æ";P;;d;EE;DE;CE;BE;ED;DD;CD;BD;▌7▌7DC;CC;BC;EB;DB;CB;BB;9Q;Q ;Q; z h003C 095B x0DASCII->SYMBOL x04COPY x06%DELAY x0FDELAYED-OBJECT? x07DELETE! x05DELQ! x08%EXECUTE x04EXIT x07EXPLODE x08FOR-EACH x05FORCE x02GC x03GCD s0001G lx06STRINGlx07COUNTERn x06STRING x07COUNTER x06GENSYM x04HEAD x07IMPLODE x03LCM x0CLIST->STREAM x0CLIST->VECTOR x08LIST-REF x03MAP x04MAPC x06MAPCAR x06RANDOM x09RANDOMIZE x07RUNTIME x07STREAM? x0CSTREAM->LIST x0DSYMBOL->ASCII x04TAIL x04THAW x0CVECTOR->LIST x08BOOLEAN? x02#T x08#!STREAM x16%ERROR-INVALID-OPERAND x10THE-EMPTY-STREAM b020000000001 i2801 i3FFF i0400 i2000 x05STATE lx05STATEn x10#!DELAYED-OBJECT lx01Ln x01L lx05HEAPLn x05HEAPL x00 x0FERROR-PROCEDURE s0020Invalid list element fot IMPLODE s000A0123456789 s00010 x0ETRANSCRIPT-OFF x01- t<╚<y<Ü<π<≤<X<%<<H <╠ <à <d < ▌<' =<α<µ<b <<ô<~<╒ <.<µ<«<c<! < !<╛!"<░"#<8#$<$$;%d$ê";;;⌐0 ;`"j;QO █á╔╦;Ç";@0φ A0α O;5æ"⌐ö"&d" 5'!5═╟í;(dê"4!40╫ O;;!R (d$-æ"!⌐ö"&d;;;;·@CIN<SP<SPdSP;))SQ ù]"]" ⁿΘⁿⁿ;Θ;[*_"+X+ⁿRⁿⁿⁿ\ⁿⁿ" ⁿXⁿⁿ;,S_"X;-S[P α.ü".4o..@;▌/.<╓ ;0 ;Ç"j;A@4O ╩æ"!⌐ö"0d;;;Ç";@f"AA ▌A ╥z@;Ñ¿0 ;"@QA Φ;Çê"@f"A ΦA0h ;;▌122"72▌342@<4x&O5(;4A1» !Ç ">@Æ";ASò 4W ╝;Ç";@d"AA ▌A ╥",Ç"'5Ñ╔0 ;5;#Ç@É" ═╟ XÅ"╟ E£" 8ç"á )$67$4╚AQ!y ╦;Çê"@d"A ΦA0Φ■ ;;æ"⌐ö"&d";'5Q"5@ç" ò Å" É"═0#╞$╞$(╓($╠;ö"7 WQ0µ ╞RQ X8╟╚;Æ"9;╔;!╠■0 ;"A@ò0 █;Æ";X Θ"@êê"²≈;²∙;æ"⌐ö"0d" 5' 50 ;Ç$@4A ╓;:;:4°√;^"j;Q$Q$ º $╦ O ╙É"═ Å"╞0ó ;ç"ò0 ;; _")Q04Oô";O;; W XQ04O ¥ z h0003 0026 x0APCS-NULL-K x0FERROR-PROCEDURE s0019Null continuation invoked t<;4; z h0002 000A x0APCS-NULL-K x0DPCS-SUCCESS-K t; z h0001 0007 x0APCS-FAIL-K t; z h0007 004E x12PCS-ENGINE-TIMEOUT lx01Kn x01K x0APCS-FAIL-K x0APCS-NULL-K x0DPCS-SUCCESS-K x0BMAKE-ENGINE t<;<7▌<455 z h0005 0035 x0FPCS-KILL-ENGINE x0DPCS-SUCCESS-K x0APCS-NULL-K x0APCS-FAIL-K s0020[Current engine has been killed] t<;dê"»│╡;; z h0014 0147 x0BMAKE-ENGINE lx05THUNKn x05THUNK x16%ERROR-INVALID-OPERAND lx05TICKSlx02SKlx02FKn x05TICKS x02SK x02FK lx08ENGINE-Kn x08ENGINE-K x0DPCS-SUCCESS-K x0APCS-NULL-K x0FERROR-PROCEDURE s0016Engine already running s001CInvalid argument to <engine> x0APCS-FAIL-K s0019ENGINE-RETURN not invoked lx01Vn x01V lx01Vlx05TICKSn t<;▌ì"<;5▌<65▌ dê" 4ç"ì" ìêêê" xO4 <_ <2«4»» 4;▌< 55▌ < 55 z h0004 0022 x0DENGINE-RETURN x0DPCS-SUCCESS-K x0APCS-NULL-K x0APCS-FAIL-K t<;»»5 z h0001 0015 x06FREESP t<;Φ; z h0001 001E x05%HASH t<;═ Θ; z h0001 0015 x14GET-GC-COMPACT-COUNT t<;Φ; z h0002 0033 x15SET-GC-COMPACT-COUNT! x16%ERROR-INVALID-OPERAND t<;ç" ⁿΘⁿⁿ;5 z h0001 001C x0A%XLI-DEBUG t<;ⁿΘⁿⁿ; z h0004 007A x11%SYSTEM-FILE-NAME x0APCS-SYSDIR c5C s0001\ t<;╞Æ";Q ⁿ╟ⁿⁿ└" ╞ (,╞,0╓ (0,╞ ,╞,0ⁿ╓ⁿ 0,ⁿ; z h0003 0043 x16%ERROR-INVALID-OPERAND s0014Invalid argument to x0FERROR-PROCEDURE t<;═╞(╞(,╓,(4; z h0003 004D x1B%ERROR-INVALID-OPERAND-LIST s001AInvalid argument list for x0FERROR-PROCEDURE t<■;═╞(╞(,╓,(O4; z h0006 0061 lx04PRINn x04PRIN x0CSYNTAX-ERROR s000F[Syntax Error] x04MAPC s0018[Returning to top level] t▌<N< =;╡│@│A4╡│╡√;╡▓; z h0001 0014 x13PCS-CLEAR-REGISTERS t<;²; z h0002 0020 x0EPCS-MAKE-LABEL x13PCS-LOCAL-VAR-COUNT t<;QO; z h0010 0048 x0EPCS-GC-MESSAGE x0CPCS-GC-RESET x07CONSOLE x0ESTANDARD-INPUT x0FSTANDARD-OUTPUT x05FALSE x02#T x04TRUE x10THE-EMPTY-STREAM x0CLIST->VECTOR x0EPCS-ERROR-FLAG x11PCS-BINARY-OUTPUT x0C*ERROR-CODE* x0F*ERROR-MESSAGE* x0A*IRRITANT* x14*USER-ERROR-HANDLER* to 4 ; z h0003 0030 x14CALL-WITH-INPUT-FILE x0FOPEN-INPUT-FILE x10CLOSE-INPUT-PORT t<;444; z h0003 0030 x15CALL-WITH-OUTPUT-FILE x10OPEN-OUTPUT-FILE x11CLOSE-OUTPUT-PORT t<;444; z h0001 0022 x0ECURRENT-COLUMN t< ;@╥P; z h0002 0013 x12CURRENT-INPUT-PORT x0AINPUT-PORT t<;; z h0002 0013 x13CURRENT-OUTPUT-PORT x0BOUTPUT-PORT t<;; z h0002 0016 x0BEOF-OBJECT? x03EOF t<;e; z h0008 0084 x09FAST-LOAD x0CFILE-EXISTS? x02OK x0FERROR-PROCEDURE s001DFAST-LOAD file does not exist x16%ERROR-INVALID-OPERAND x0BEOF-OBJECT? x08%EXECUTE t<;Å"-4"0& ;4;5┐4ê"4 ╙; z h0002 001B x04LOAD x09FAST-LOAD t┘█ê" ;; z h0008 0075 x0CFILE-EXISTS? lx04NAMEn x04NAME x0CSTRING-NULL? x12*FILE-EXISTS-OPEN* x04READ x10CLOSE-INPUT-PORT x02#T t<;▌Å"$4ê" < 7;;░î"4; z h0003 00A2 x0BFLUSH-INPUT c0A x0BEOF-OBJECT? t< ;@╥~Æê"╥~Æ"╛"╝0 ;;d$"4$╛ê$╝ ╛; z h0001 002D x0AFRESH-LINE t< ;"@╥ö"╡;; z h0001 0041 x0BINPUT-PORT? t<;î"&╥~Æê"~Æ;;; z h0001 001C x0BLINE-LENGTH t< ;@╥; z h0002 0016 x0FOPEN-INPUT-FILE x04READ t<;░; z h0002 003B x16OPEN-BINARY-INPUT-FILE x04READ t<;░╥ ⁿⁿⁿ╤; z h0002 0016 x10OPEN-OUTPUT-FILE x05WRITE t<;░; z h0003 0048 x17OPEN-BINARY-OUTPUT-FILE x05WRITE x10SET-LINE-LENGTH! t<;░╥ ⁿⁿⁿ╤4; z h0002 0016 x10OPEN-EXTEND-FILE x06APPEND t<;░; z h0001 0012 x10CLOSE-INPUT-PORT t<;▒; z h0001 0012 x11CLOSE-OUTPUT-PORT t<;▒; z h0002 0065 x11OPEN-INPUT-STRING x16%ERROR-INVALID-OPERAND t<;Å"?╨Γ╤╥@ⁿⁿⁿ╤;5 z h0001 0043 x0COUTPUT-PORT? t<;î"(╥~Æê"~Æê;;; z h0016 03C9 lx06QQ-OPSn llx01'x05QUOTEllx01`x0AQUASIQUOTEllx01,x07UNQUOTEllx02,@x10UNQUOTE-SPLICINGl lx02,.x11UNQUOTE-SPLICING!n x06QQ-OPS x04READ x0BEOF-OBJECT? x02#( x01( x01) x0FERROR-PROCEDURE s0025Unexpected `)' encountered before `(' x01. x01` x02#T x01' lx01[lx01]lx01{lx01}n s0029Invalid outside of QUASIQUOTE expression: s0026WARNING -- EOF encountered during READ x03EOF s0035WARNING -- Invalid use of `.' encountered during READ x0CLIST->VECTOR x0AQUASIQUOTE lx01[lx01]lx01{lx01}n t▌< =;@╗4";Ç";@e"!xe"!@e" 4; e"0╙!\ e" : e" h";ê""4;0╨■4" lAx;╡│╡;╡│╡;0Ijï"Aê"@ 0╕ p;05╗4"0^ j;Ç":d"$(O$( ⌐$(O$( Æ@$ e $" j;$ e $" 8 " ê ê " !≡■0╓■!0 ($e$("$ 0√■$ !╢($ e$("$ 0▒$ !ì($ e$("$" 0█²$ _( $ e$("$" 0¡²$ 1($ h$("$$ 0z²$ $4O 4!6■!-■ z h0001 001D x10SET-LINE-LENGTH! t<■;@╤; z h0002 000A x0C#!UNASSIGNED x0DTRANSCRIPT-ON t; z h0002 000A x0C#!UNASSIGNED x0ETRANSCRIPT-OFF t; z h000B 00B4 lx04PORTn x04PORT x0DTRANSCRIPT-ON x0ETRANSCRIPT-OFF x11CLOSE-OUTPUT-PORT x02OK x10OPEN-EXTEND-FILE x0FERROR-PROCEDURE s001EUnable to open transcript file x07WINDOW? s0021Invalid argument to transcript-on t▌<-<;"╜4;" 4Å"24î" ╜;4; 4"╜; 4; z h0004 0048 x14WITH-INPUT-FROM-FILE x0FOPEN-INPUT-FILE x0AINPUT-PORT x10CLOSE-INPUT-PORT t<;4î" 44;; z h0004 0048 x13WITH-OUTPUT-TO-FILE x10OPEN-OUTPUT-FILE x0BOUTPUT-PORT x11CLOSE-OUTPUT-PORT t<;4î" 44;; z h0001 0030 x07WINDOW? t<;î"╥~ö;; z h0001 002E x07WRITELN t< ;0 ;"@│A ∩╡; z h0006 0258 x12SET-FILE-POSITION! b020000000001 i0100 x0FERROR-PROCEDURE s003FSET-FILE-POSITION! - offset from EOF only valid for input files x16%ERROR-INVALID-OPERAND t<; ╥ ╥ ╥ Q b $,(╥(,,S(,0,╥,0P(,0,╥,00î0"040,~044^04#0╤084e48"4qò84,~488^48"4c(84U48Ü4 48S488R84848\4"4$84`48"484,~488^48"44 ^4"48 ╤8;τ ;840e48#4ô4P44\4"484`48"484,~488^48"48 ╤8;4S4P4P44_4("484,~488^48"4(84\48"484U48 4Ü <8 S8<ⁿRⁿ88ⁿτ 8;840e48#4ò4ò4c4(4ò48(R848488U48Ü4 48S48R484,~488^48"4+4\4"484`48"44 ^4"48 ╤8;τ ; $(,04;<<55 z h0004 006F x11GET-FILE-POSITION i0100 x0FERROR-PROCEDURE s004AInvalid argument to GET-FILE-POSITION. Port object must represent a file. t<;î"╥~^"+╥bQ S ╥P;4; z h0002 000A x0C#!UNASSIGNED x10ASSERT-PROCEDURE t; z h0002 000A x0C#!UNASSIGNED x14BREAKPOINT-PROCEDURE t; z h0002 000A x0C#!UNASSIGNED x0FERROR-PROCEDURE t; z h0002 000A x0C#!UNASSIGNED x0F*ERROR-HANDLER* t; z h0041 052C lx06UV-MSGlx09MSG-CODESlx04OOPSlx0EENVOKE-HANDLERlx0EDECIPHER-ERRORn li0001li0002li0003li0004n x06UV-MSG lli0000s0014Unspecified VM errorlli0001s002BVariable not defined in current environmentl li0002s001BSET! of an unbound variablelli0003s002BVariable not defined in lexical environmentl li0004s0023SET! of an unbound lexical variablelli0005s0029Variable not defined in fluid environmentl li0006s0027SET-FLUID! of an unbound fluid variablelli0007s0019Vector index out of rangel li0008s0019String index out of rangelli0009s0017Invalid substring rangelli000A s0021Invalid operand to VM instructionlli000Bs0017User keyboard interruptlli000C s0027Attempt to call a non-procedural objectlli000Es0024I/O attempted to a de-exposed windowl li000Fs001CFLONUM overflow or underflowlli0010s000EDivide by zerolli0011s002BNon-numeric operand to arithmetic operationl li0012s0030Register overflow--Too many arguments to closurelli0013s001FMAKE-VECTOR size limit exceededl li0014s001FMAKE-STRING size limit exceededlli0015s0015DOS I/O error number ll i0016s001EDOS I/O error - File not foundlli0017s001EDOS I/O error - Path not foundl li0018s0023DOS I/O error - Too many open fileslli0019s001DDOS I/O error - Access deniedl li0020s001EDOS I/O error - Invalid accesslli0024s0022DOS I/O error - Invalid disk drivel li0027s0024DOS I/O error - Disk write protectedlli0029s001FDOS I/O error - Drive not readyl li0030s0024DOS I/O error - Printer out of paperlli00C8s0019DOS I/O error - Disk Fulln x09MSG-CODES x04OOPS x0EENVOKE-HANDLER x0EDECIPHER-ERROR x10ASSERT-PROCEDURE x14BREAKPOINT-PROCEDURE x0FERROR-PROCEDURE x0F*ERROR-HANDLER* x0C*ERROR-CODE* x0F*ERROR-MESSAGE* x0A*IRRITANT* x14PCS-AUTOLOAD-BINDING x12PCS*PRIMOP-HANDLER x07COMPILE x0APCS*OPCODE lx01Jlx01Ilx01Hlx01Glx01Flx01Elx01Dlx01Clx01Blx01An x06LAMBDA x06DEFINE x14PCS-DISPLAY-WARNINGS x18PCS-INTEGRATE-PRIMITIVES x02#T x17USER-GLOBAL-ENVIRONMENT x04EVAL x11DEFINE-INTEGRABLE x18USER-INITIAL-ENVIRONMENT x12PCS-ENGINE-TIMEOUT lx03MSGlx08IRRITANTlx03ENVn x03MSG x08IRRITANT x03ENV x14*USER-ERROR-HANDLER* s0015[ERROR encountered!] s0014[BKPT encountered!] x06ASSERT s0012[ASSERT failure!] x12*FILE-EXISTS-OPEN* x0FINTEGER->STRING lx06NUMBERlx03MSGlx08IRRITANTlx09STK-INDEXlx08ERR-CODEn x06NUMBER x09STK-INDEX x08ERR-CODE s0018[VM ERROR encountered!] lx03MSGlx08IRRITANTlx03ENVlx09STK-INDEXlx04KINDlx0AERROR-CODEn x04KIND x0AERROR-CODE x0ESTANDARD-INPUT x0FSTANDARD-OUTPUT lx05*1485lx05*1486n x05*1485 x05*1486 x0AINPUT-PORT x0BOUTPUT-PORT lx02SIn x02SI lx03ENVn x0FPCS-KILL-ENGINE x0A%INSPECTOR s0034Unable to autoload the inspector - file PINSPECT.FSL s0038Press a key to return to toplevel, escape to exit to DOS c1B x04EXIT t▌<╩<n<M< <δⁿ <ÿ <;Æ" h#M4ê#=t┘█êê$4"ç" t"uÑRzOOOOOOO 4 ;"ï" @d"MAOOO 4; mA 5; e"5 σQσQσ5▌ ! <"ü" "55 ! #5" @çêê"@ $5O%O &5 ë" m"A e" dd!╛"]"l`#Ñ^ê"^êê"'å"'4Q Rë"NmA( 4$╞$(4╞48 ╓ ($84 $($(5▌)* +,< "ü"* "55 +-,5▌. !+/01 2▌34 5$46$$57$$+ô$"$$ σ$Q$σ$ $+▌8$9(!$((9Q( σ(▌:(!,╡,,/│,,",,│, $(,╡,, ▓,,╡,;4┘,0ⁿ0█ⁿ,,ⁿ",:,<0█,0ê,",*, 0e,0ê,",<4,ê,ê,ê,",,=│,√ @4,ê,",/,á,│,,>│,,╝,4?0,└04"0,@40, ⁿ/ !90<4==; z h0003 0042 x12AUTOLOAD-FROM-FILE x18USER-INITIAL-ENVIRONMENT x11PCS-AUTOLOAD-INFO t<²;"@ xOtOu; z h0001 0007 x14PCS-AUTOLOAD-BINDING t; z h0001 0007 x14REMOVE-AUTOLOAD-INFO t; z h0008 015D x14PCS-AUTOLOAD-BINDING x14REMOVE-AUTOLOAD-INFO x11PCS-AUTOLOAD-INFO x11%SYSTEM-FILE-NAME x05DELQ! x0BSTRING-CI=? x0CFILE-EXISTS? x04LOAD t<σ<;t408"+t4ⁿuⁿⁿ;;"+Éê"Åêê"BH ;;Å"(4"@;A ¢"@d"@;A ╕A!} t0k "Q@IÅ"?4"&ß4ß █ êê;;;; z h0004 0117 x14ENVIRONMENT-BINDINGS x0FDELAYED-OBJECT? x16%ERROR-INVALID-OPERAND x15PROCEDURE-ENVIRONMENT t<;#æ¥" Aüê"4ê"4 4 ╪^"╪╪ hWQ■ ;Æ";╪"0 Q ├"@OA ε;"@AOOA@ Σj; z h0002 0146 x06UNBIND x16%ERROR-INVALID-OPERAND t<;É":¥") ╪^"╪╪!Ä 55═ ΘQ╪"4Bd"A 0Γ;;C"Gd" E;A Γ;@d"A@ 0ΓΓ;C"$Cd"EB;A@ ╓; z h0003 004B x15PROCEDURE-ENVIRONMENT x0FDELAYED-OBJECT? x16%ERROR-INVALID-OPERAND t<;ü"╪;4" ╙5 z h0001 0023 x07CHAR<=? t<;┬$└;; z h0001 001B x07CHAR>=? t<;┬ê; z h0001 002A x06CHAR>? t<;┬ê"└ê;; z h0001 0023 x0ACHAR-CI<=? t<;├$┴;; z h0001 001B x0ACHAR-CI>=? t<;├ê; z h0001 002A x09CHAR-CI>? t<;├ê"┴ê;; z h0001 0026 x0CSTRING-NULL? t<;Å"╞Æ;; z h0002 0094 x0DSTRING-APPEND s0000 t< ;"A"@CE @;;"8@A"'@A0╥ ╞$╞$(╓($; z h0002 0029 x0BSTRING-COPY s0000 t<;╞ ╓ ; z h0001 0046 x0CSTRING->LIST t<;╞0 ;^"j;Q ╟ O ▄ z h0001 0041 x0CLIST->STRING t<;Ñ╔0 ;"@╚AQ Φ; z h0001 0028 x0FSUBSTRING-FILL! t<;\"╚Q δ; z h0001 0031 x14SUBSTRING-MOVE-LEFT! t<;\"╟╚QQ Γ; z h0001 0061 x15SUBSTRING-MOVE-RIGHT! t<;RPQ Q 0 ;]"╟╚Q Q ▀; z h0001 002B x08STRING=? t<;Å"Å"e;;; z h0001 006C x08STRING<? t<;╞╞0 ;^"\;^ê"$╟ ╟ $└$ "$QQ ╚┬ ;; z h0001 006C x09STRING<=? t<;╞╞0 ;^"];^ê"$╟ ╟ $└$ "$QQ ╚┬ ;; z h0002 001C x09STRING>=? x08STRING<? t<;4ê; z h0002 001C x08STRING>? x09STRING<=? t<;4ê; z h0002 000A x0C#!UNASSIGNED x0BSUBSTRING=? t; z h0002 000A x0C#!UNASSIGNED x0ESUBSTRING-CI=? t; z h0005 00DA x0BSUBSTRING=? x0ESUBSTRING-CI=? lx09CHAR-TESTn x09CHAR-TEST x0FMAKE-SUBSTRING= t<╬0 <║0 ;▌<;Å":Å".R R ^ "0 ;;;;^$Fⁿ╟ⁿⁿⁿ╟ⁿⁿ4"QQ «;;┴;└; z h0002 000A x0C#!UNASSIGNED x0BSUBSTRING<? t; z h0002 000A x0C#!UNASSIGNED x0ESUBSTRING-CI<? t; z h0006 0126 x0BSUBSTRING<? x0ESUBSTRING-CI<? lx09CHAR=TESTlx09CHAR<TESTn x09CHAR=TEST x09CHAR<TEST x0FMAKE-SUBSTRING< t<<0 <·<ε0 ;▌<;Å"$Å"0 ;;;^ê"^ê"fⁿ╟ⁿⁿⁿ╟ⁿⁿ4"QQ ƒ╟╟5RR\;├;┴;┬;└; z h0002 000A x0C#!UNASSIGNED x0BSTRING-CI=? t; z h0002 000A x0C#!UNASSIGNED x0BSTRING-CI<? t; z h0007 0044 x0ESUBSTRING-CI=? x0BSTRING-CI=? x0ESUBSTRING-CI<? x0BSTRING-CI<? lx14SUBSTRING-COMPARISONn x14SUBSTRING-COMPARISON x11STRING-COMPARISON t0 0 ;▌<;╞ ╞ 5 z h0001 0013 x01< t<;\; z h0001 0013 x02<= t<;]; z h0001 0013 x03<=? t<;]; z h0001 0013 x02<> t<;a; z h0001 0013 x03<>? t<;a; z h0001 0013 x02<? t<;\; z h0001 0013 x01= t<;^; z h0001 0013 x02=? t<;^; z h0001 0013 x01> t<;_; z h0001 0013 x02>= t<;`; z h0001 0013 x03>=? t<;`; z h0001 0013 x02>? t<;_; z h0001 0012 x03ABS t<;ò; z h0001 0013 x05ASSOC t<;n; z h0001 0013 x04ASSQ t<;l; z h0001 0013 x04ASSV t<;m; z h0001 0012 x05ATOM? t<;Ç; z h0001 0013 x05CAAAR t<;F; z h0001 0013 x05CAADR t<;G; z h0001 0013 x04CAAR t<;B; z h0001 0013 x05CADAR t<;H; z h0001 0013 x06CADDDR t<;N; z h0001 0013 x05CADDR t<;I; z h0001 0013 x04CADR t<;C; z h0001 0013 x03CAR t<;@; z h0001 0013 x05CDAAR t<;J; z h0001 0013 x05CDADR t<;K; z h0001 0013 x04CDAR t<;D; z h0001 0013 x05CDDAR t<;L; z h0001 0013 x05CDDDR t<;M; z h0001 0013 x04CDDR t<;E; z h0001 0013 x03CDR t<;A; z h0001 0012 x07CEILING t<;Ö; z h0001 0012 x0DCHAR->INTEGER t<;í; z h0001 0013 x09CHAR-CI<? t<;├; z h0001 0013 x09CHAR-CI=? t<;┴; z h0001 0012 x0DCHAR-DOWNCASE t<;┼; z h0001 0012 x0BCHAR-UPCASE t<;─; z h0001 0013 x06CHAR<? t<;┬; z h0001 0013 x06CHAR=? t<;└; z h0001 0012 x05CHAR? t<;£; z h0001 0012 x08CLOSURE? t<;ü; z h0001 0012 x08COMPLEX? t<;ë; z h0001 0014 x04CONS t<;O; z h0001 0012 x0DCONTINUATION? t<;â; z h0001 0012 x12ENVIRONMENT-PARENT t<;┌; z h0001 0012 x0CENVIRONMENT? t<;¥; z h0001 0013 x03EQ? t<;d; z h0001 0013 x06EQUAL? t<;f; z h0001 0013 x04EQV? t<;e; z h0001 0012 x05EVEN? t<;ä; z h0001 0012 x05FLOAT t<;û; z h0001 0012 x06FLOAT? t<;à; z h0001 0012 x05FLOOR t<;ÿ; z h0001 0013 x07GETPROP t<;t; z h0001 0012 x0DINTEGER->CHAR t<;á; z h0001 0012 x08INTEGER? t<;ç; z h0001 0012 x09LAST-PAIR t<;ª; z h0001 0012 x06LENGTH t<;Ñ; z h0001 0013 x09LIST-TAIL t<;z; z h0001 0014 x12MAKE-PACKED-VECTOR t<;½; z h0001 0013 x06MEMBER t<;i; z h0001 0013 x04MEMQ t<;g; z h0001 0013 x04MEMV t<;h; z h0001 0012 x05MINUS t<;ù; z h0001 0012 x09NEGATIVE? t<;ô; z h0001 0012 x03NOT t<;ê; z h0001 0012 x07NUMBER? t<;ë; z h0001 0012 x0BOBJECT-HASH t<;π; z h0001 0012 x0DOBJECT-UNHASH t<;Σ; z h0001 0012 x04ODD? t<;è; z h0001 0012 x05PAIR? t<;ï; z h0001 0012 x05PORT? t<;î; z h0001 0012 x09POSITIVE? t<;ö; z h0001 0012 x0CPRINT-LENGTH t<;╕; z h0001 0012 x05PROC? t<;ì; z h0001 0012 x08PROPLIST t<;v; z h0001 0014 x07PUTPROP t<;u; z h0001 0013 x08QUOTIENT t<;W; z h0001 0012 x09RATIONAL? t<;ç; z h0001 0012 x05REAL? t<;ë; z h0001 0013 x09REMAINDER t<;X; z h0001 0013 x07REMPROP t<;w; z h0001 0011 x05RESET t<;√; z h0001 0012 x08REVERSE! t<;j; z h0001 0012 x05ROUND t<;¢; z h0001 0011 x0CSCHEME-RESET t<;ⁿ; z h0001 0013 x08SET-CAR! t<;; z h0001 0013 x08SET-CDR! t<;; z h0001 0012 x0ESTRING->SYMBOL t<;╦; z h0001 0012 x19STRING->UNINTERNED-SYMBOL t<;╠; z h0001 0013 x0CSTRING-FILL! t<;╩; z h0001 0012 x0DSTRING-LENGTH t<;╞; z h0001 0013 x0ASTRING-REF t<;╟; z h0001 0014 x0BSTRING-SET! t<;╚; z h0001 0012 x07STRING? t<;Å; z h0001 0014 x09SUBSTRING t<;º; z h0001 0015 x1FSUBSTRING-FIND-NEXT-CHAR-IN-SET t<;╬; z h0001 0015 x23SUBSTRING-FIND-PREVIOUS-CHAR-IN-SET t<;╧; z h0001 0012 x0ESYMBOL->STRING t<;═; z h0001 0012 x07SYMBOL? t<;É; z h0001 0012 x0FTHE-ENVIRONMENT t<;┘; z h0001 0012 x08TRUNCATE t<;Ü; z h0001 0013 x0CVECTOR-FILL! t<;¬; z h0001 0012 x0DVECTOR-LENGTH t<;⌐; z h0001 0013 x0AVECTOR-REF t<;; z h0001 0014 x0BVECTOR-SET! t<;; z h0001 0012 x07VECTOR? t<;æ; z h0001 0012 x14WINDOW-SAVE-CONTENTS t<;╘; z h0001 0013 x17WINDOW-RESTORE-CONTENTS t<;╒; z h0001 0012 x05ZERO? t<;Æ; z h0005 0015 s000CPWINDOWS.FSL x11%SYSTEM-FILE-NAME lx0BMAKE-WINDOWlx0CWINDOW-CLEARlx0DWINDOW-DELETElx13WINDOW-GET-POSITIONlx14WINDOW-SET-POSITION!l x0FWINDOW-GET-SIZElx10WINDOW-SET-SIZE!lx11WINDOW-GET-CURSORlx12WINDOW-SET-CURSOR!l x0CWINDOW-POPUPlx13WINDOW-POPUP-DELETElx14WINDOW-GET-ATTRIBUTElx15WINDOW-SET-ATTRIBUTE!n x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s0009PMATH.FSL x11%SYSTEM-FILE-NAME lx04ACOSlx04ASINlx04ATANlx03COSlx06EXACT?lx03EXPlx04EXPTlx08INEXACT?lx03LOGl x02PIlx03SINlx04SQRTlx03TANn x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s0006PP.FSL x11%SYSTEM-FILE-NAME lx02PPlx0F%PRETTY-PRINTERlx06%PP-MEn x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s0008PDOS.FSL x11%SYSTEM-FILE-NAME lx07DOS-DIRlx08DOS-CALLlx06SW-INTlx0ADOS-DELETElx0DDOS-FILE-COPYlx0ADOS-RENAMEl x0DDOS-FILE-SIZElx09DOS-CHDIRlx10DOS-CHANGE-DRIVEn x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s0009PSORT.FSL x11%SYSTEM-FILE-NAME lx05SORT!lx0B%SORT-LESS?n x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s000APNUM2S.FSL x11%SYSTEM-FILE-NAME lx0ENUMBER->STRINGlx0FINTEGER->STRINGlx0ESTRING->NUMBERn x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s000BPFUNARG.FSL x11%SYSTEM-FILE-NAME lx01*lx01+lx01-lx01/lx06APPENDlx07APPEND!lx0BCHAR-READY?lx07DISPLAYlx04LISTl x05LIST*lx0BMAKE-VECTORlx0BMAKE-STRINGlx03MAXlx03MINlx07NEWLINElx05PRIN1l x05PRINClx05PRINTlx09READ-LINElx09READ-ATOMlx09READ-CHARlx06VECTORlx05WRITEl x0AWRITE-CHARlx05%XESCn x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s0007PGR.FSL x11%SYSTEM-FILE-NAME lx0ECLEAR-GRAPHICSlx0ADRAW-POINTlx0BCLEAR-POINTlx0CIS-POINT-ON?lx0CPOSITION-PENl x0CDRAW-LINE-TOlx0ESET-PEN-COLOR!lx11*GRAPHICS-COLORS*lx0FSET-VIDEO-MODE!l x0EGET-VIDEO-MODElx0CSET-PALETTE!lx0BDRAW-BOX-TOlx12DRAW-FILLED-BOX-TOlx0DGET-PEN-COLORl x10GET-PEN-POSITIONlx0BPOINT-COLORlx17SET-CLIPPING-RECTANGLE!lx0FGRAPHICS-WINDOWl x17CURRENT-GRAPHICS-WINDOWlx11*CHARACTER-BOXES*n x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0005 0015 s000BPRIMOPS.FSL x11%SYSTEM-FILE-NAME lx01<lx02<=lx03<=?lx02<>lx03<>?lx02<?lx01=lx02=?lx01>lx02>=lx03>=?lx02>?l x03ABSlx05ASSOClx04ASSQlx04ASSVlx05ATOM?lx05CAAARlx05CAADRlx04CAARlx05CADARl x06CADDDRlx05CADDRlx04CADRlx03CARlx05CDAARlx05CDADRlx04CDARlx05CDDARlx05CDDDRl x04CDDRlx03CDRlx07CEILINGlx0DCHAR->INTEGERlx09CHAR-CI<?lx09CHAR-CI=?lx0DCHAR-DOWNCASEl x0BCHAR-UPCASElx06CHAR<?lx06CHAR=?lx05CHAR?lx08CLOSURE?lx08COMPLEX?lx04CONSl x0DCONTINUATION?lx12ENVIRONMENT-PARENTlx0CENVIRONMENT?lx03EQ?lx06EQUAL?lx04EQV?l x05EVEN?lx05FLOATlx06FLOAT?lx05FLOORlx07GETPROPlx0DINTEGER->CHARlx08INTEGER?l x09LAST-PAIRlx06LENGTHlx09LIST-TAILlx12MAKE-PACKED-VECTORlx06MEMBERlx04MEMQl x04MEMVlx05MINUSlx09NEGATIVE?lx03NOTlx07NUMBER?lx0BOBJECT-HASHlx0DOBJECT-UNHASHl x04ODD?lx05PAIR?lx05PORT?lx09POSITIVE?lx0CPRINT-LENGTHlx05PROC?lx08PROPLISTl x07PUTPROPlx08QUOTIENTlx09RATIONAL?lx05REAL?lx09REMAINDERlx07REMPROPlx05RESETl x08REVERSE!lx05ROUNDlx0CSCHEME-RESETlx08SET-CAR!lx08SET-CDR!lx0ESTRING->SYMBOLl x19STRING->UNINTERNED-SYMBOLlx0CSTRING-FILL!lx0DSTRING-LENGTHlx0ASTRING-REFl x0BSTRING-SET!lx07STRING?lx09SUBSTRINGlx1FSUBSTRING-FIND-NEXT-CHAR-IN-SETl x23SUBSTRING-FIND-PREVIOUS-CHAR-IN-SETlx0ESYMBOL->STRINGlx07SYMBOL?lx0FTHE-ENVIRONMENTl x08TRUNCATElx0CVECTOR-FILL!lx0DVECTOR-LENGTHlx0AVECTOR-REFlx0BVECTOR-SET!l x07VECTOR?lx14WINDOW-SAVE-CONTENTSlx17WINDOW-RESTORE-CONTENTSlx05ZERO?n x17USER-GLOBAL-ENVIRONMENT x12AUTOLOAD-FROM-FILE t45 z h0026 0249 x18USER-INITIAL-ENVIRONMENT lx0ASAVED-GENVn x0ASAVED-GENV x16RESET-SCHEME-TOP-LEVEL x02%C x02%D x10%PCS-STL-HISTORY x08LIST-REF lx09==RESET==lx10==SCHEME-RESET==n x10==SCHEME-RESET== x10SCHEME-TOP-LEVEL x19*THE-NON-PRINTING-OBJECT* x0ESTANDARD-INPUT x0AINPUT-PORT x0FSTANDARD-OUTPUT x0BOUTPUT-PORT s0013[PCS-DEBUG-MODE is x0EPCS-DEBUG-MODE s0003ON] s0004OFF] x0FPCS-KILL-ENGINE x02GC x13PCS-CLEAR-REGISTERS x0AFRESH-LINE s0001[ s0002] x04READ x0BFLUSH-INPUT x0BEOF-OBJECT? s0026[End of file read by SCHEME-TOP-LEVEL] x13%PCS-STL-DEBUG-FLAG lx0C%BEGIN-DEBUGn x05BEGIN x07COMPILE x04EVAL x09==RESET== lx01Kn x01K t▌<╖=<^<;tö"7Ñⁿ\ⁿⁿ""qj4A;;;tö"7Ñⁿ\ⁿⁿ""qj4@;;;▌ < ;ß ou╡│" │╡ < 64444│tÑ││44" │;otOu"x O!4 "4 dê"▓OtAOu#d"! 5▌$%#< ## ;%5 z h0001 0006 x16RESET-SCHEME-TOP-LEVEL t5 z h0004 0027 s0009PATCH.PCS x11%SYSTEM-FILE-NAME x0CFILE-EXISTS? x04LOAD t44"5; z h0003 00B4 x0FDOUBLE-SLASHIFY c5C x14SUBSTRING-MOVE-LEFT! t<;╞╔0 ;╞^";╟╚╟└"U╞Q╔Q4Q╚QQ!} QQ!t z h0001 0006 x18USER-INITIAL-ENVIRONMENT tß; z h0012 0173 x15PCS-INITIAL-ARGUMENTS x0ESYMBOL->STRING x0FDOUBLE-SLASHIFY x11OPEN-INPUT-STRING x04READ x03MAP s000Ascheme.ini x0CFILE-EXISTS? x04LOAD lx04RESTlx09INI-FILESn x04REST x09INI-FILES x0ESUBSTRING-CI=? s0004.app s0004.xli ls000Ascheme.inin x04LOOP x08FOR-EACH t"K@444ï" o40 ;4" 5;▌ @ #╖╞ⁿ_ⁿⁿ" AO= ╞╞Qⁿ╞ 4" A= å╞Qⁿ╞4" A=!K AO=!4 ê"< 54"5; z h0000 0002 tⁿ; z